10 POKE55,0:POKE56,24:CLR
20 PG=24:MX=PEEK(56)
30 Z$=CHR$(0):Q$=CHR$(34)
40 POKE53280,15:POKE53281,1
50 PRINTCHR$(14);CHR$(8)
60 DIMF$(MX),F(MX),T(MX)
70 FORI=828TO904:READA:POKEI,A:NEXT
80 PRINT"[147][144]              [198][201][204][197] [195][207][208][201][197][210]               ";:DD=8
90 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
100 PRINT"[208]LEASE INSERT THE [211][207][213][210][195][197][144]  DISKETTE INTO"
110 PRINT"THE DISK DRIVE #8 AND PRESS THE [210][197][212][213][210][206][146]- KEY"
120 GETA$:IFA$<>CHR$(13)THEN120
130 OPEN15,DD,15,"I0"
140 INPUT" [198]ILENAMES TO MATCH ? *[157][157][157]";F$
150 IFRIGHT$(F$,1)<>"*"THENF$=F$+"*"
160 GOSUB940:IFEGOTO900
170 OPEN1,DD,0,"$0:"+F$:GOSUB940
180 IFETHENPRINT"[154] IMPOSSIBLE TO READ DIRECTORY [146]":GOTO900
190 PRINT" '[195][144]' [198]ILE KOPIEREN   '[210][144]' [198]ILE AUSLASSEN  ";
200 PRINT"'[194][144]' [195]OPY BEGINNEN   '[193][144]' ABBRECHEN    "
210 GET#1,A$,B$:N=0:AD=PG*256
220 GET#1,A$,B$:IFB$=""GOTO430
230 GET#1,A$,B$:F$=""
240 SZ=ASC(A$+Z$)+ASC(B$+Z$)*256
250 GET#1,A$:IF64ANDSTGOTO430
260 IFA$<>Q$GOTO250
270 GET#1,A$:IFA$<>Q$THENF$=F$+A$:GOTO270
280 GET#1,A$:IFA$<>" "GOTO280
290 GET#1,T$:IFT$=" "GOTO290
300 GET#1,A$:IFA$<>""GOTO300
310 IFSZ=0OR(T$<>"P"ANDT$<>"S")GOTO220
320 PRINTSZ;TAB(5);T$;" ";Q$;F$;Q$;TAB(26);
330 IFAD+SZ*256>53247THENPRINT"[212][207][207] [204][193][210][199][197][144]":GOTO220
340 PRINT"_ C:R:B:A?[146][157][157][157][157][157][157][157][157]";
350 GETA$:IFA$=""GOTO350
360 IFA$="R"THENPRINT"[154]REJECT FILE[144]":GOTO220
370 IFA$="B"THENPRINT"[154]BEGIN COPY[144]":GOTO430
380 IFA$="A"THENPRINT"[154]ABORT COPY[144]":GOTO870
390 IFA$<>"C"GOTO350
400 N=N+1:F$(N)=F$+","+T$:PRINT"[154]COPY FILE[144] "
410 AD=AD+SZ*256:IFN<MXGOTO220
420 PRINT" [205]AXIMUM OF";MX;"FILES."
430 CLOSE1:PRINT"";N;"FILES TO READ"
440 AD=PG*256:IFN=0GOTO900
450 FORI=1TON
460 PRINT" ";Q$;F$(I);Q$;TAB(20);
470 SZ=INT(AD/256)
480 POKE251,AD-SZ*256:POKE252,SZ
490 OPEN1,DD,2,"0:"+F$(I):GOSUB940
500 IFE=74THENCLOSE1:N=I-1:GOTO580
510 IFETHENCLOSE1:F$(I)="":GOTO570
520 SYS831:GOSUB940:CLOSE1:IFE=74THENN=I-1:GOTO580
530 IFETHENF$(I)="":GOTO570
540 IFPEEK(252)=208THENF$(I)="":PRINT"[212][207][207] [204][193][210][199][197][146]":GOTO570
550 F(I)=AD:AD=PEEK(251)+PEEK(252)*256:T(I)=AD
560 PRINTRIGHT$("   "+STR$(T(I)-F(I)),5);" BYTES OF MEM"
570 NEXTI
580 IFN=0GOTO900
590 PRINT"[208]LEASE INSERT THE [196][197][211][212][201][206][193][212][201][207][206][144] DISKETTE":PRINT"INTO DISK DRIVE."
595 CLOSE15
596 INPUT"COPY TO WHICH DRIVE ";DD$
597 DD=VAL(DD$):IFDD<8ORDD>15THENPRINT"[147]":GOTO590
600 INPUT"[198][207][210][205][193][212][144] THIS DISKETTE  N[157][157][157]";A$
610 PRINT:OPEN15,DD,15
620 IFA$<>"Y"GOTO660
630 INPUT" [196]ISK NAME,ID";F$,T$
640 PRINT#15,"N0:"+F$+","+T$
650 PRINT:GOSUB940:IFEGOTO580
660 FORI=1TON
670 IFF$(I)=""GOTO840
680 PRINT" ";Q$;F$(I);Q$;TAB(20);
690 OPEN1,DD,2,F$(I)+",W"
700 GOSUB940:IFE=0GOTO770
710 CLOSE1:IFE=63THEN730
720 REM  CLOSE1:IFE<>63GOTO840
730 PRINT:INPUT" [210][197][208][204][193][195][197][144] EXISTING FILE [157]? N[157][157][157]";A$
740 PRINT
750 IFA$<>"Y"GOTO840
760 PRINT#15,"S0:"+F$(I):GOTO680
770 SZ=INT(F(I)/256)
780 POKE251,F(I)-SZ*256:POKE252,SZ
790 SZ=INT(T(I)/256)
800 POKE253,T(I)-SZ*256:POKE254,SZ
810 SYS828:GOSUB940:CLOSE1:IFE=72ORE=74GOTO850
820 IFEGOTO840
830 PRINTRIGHT$("   "+STR$(T(I)-F(I)),5);" BYTES OF MEM"
840 NEXTI
850 INPUT" [211]AVE SAME PROGRAMS AGAIN? N[157][157][157]";A$
860 IFA$="Y"GOTO580
870 CLOSE15:CLOSE1
880 INPUT" [205]ORE PROGRAMS TO COPY? Y[157][157][157]";A$
890 IFA$="Y"THEN CLOSE15:CLOSE1:GOTO80
900 PRINTTAB(14)"[197][206][196] [207][198] [195][207][208][217]"
910 PRINTTAB(7)"[208]LEASE REMOVE THE DISKETTE"
920 PRINTTAB(11)"FROM THE DISK DRIVE[144]"
930 PRINTCHR$(9);:END
940 INPUT#15,E,E$,E1,E2
950 IFE=0THENRETURN
960 EE$=MID$(STR$(E),2):E1$=MID$(STR$(E1),2):E2$=MID$(STR$(E2),2)
970 IFE=63THENRETURN
980 PRINT:PRINT"";EE$;",";E$;",";E1$;",";E2$
990 DATA 76,96,3,162,1,32,198,255,32
1000 DATA 228,255,160,0,145,251,230
1010 DATA 251,208,8,230,252,165,252
1020 DATA 201,208,240,6,165,144,41,64
1030 DATA 240,231,76,204,255,162,1,32
1040 DATA 201,255,162,54,134,1,160,0
1050 DATA 177,251,32,210,255,230,251
1060 DATA 208,2,230,252,165,251,197,253
1070 DATA 208,239,165,252,197,254,208
1080 DATA 233,162,55,134,1,76,204,255